Contoh aturcara dalam Bahasa Hugs Haskell

module FastSort whereimport Gofersamsort 1 = sorting [] 0 1

  where sorting ls k [] = head(merepairs ls 0)

12): ls) (k/2)